home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / education / pe042.dms / pe042.adf / *Goosey Gander* / Goosey Gander / Goosey Gander.amosSourceCode < prev    next >
AMOS Source Code  |  1993-03-03  |  200b  |  13 lines
  1. Hide 
  2. Unpack 6 To 0
  3. Volume 63
  4. 4 Music 1
  5. 7 If Mouse Key=2 Then Change Mouse 3 : Show : Proc _END
  6. Goto 7
  7. Procedure _END
  8.    For V=63 To 0 Step -1
  9.       Volume V
  10.       Wait Vbl 
  11.    Next 
  12.    Edit 
  13. End Proc